<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#Include Virtual="/expedientes/includes_comun/asp/comun.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Sistemas OnLine</title>
<link href="/expedientes/includes_comun/css/general.css" rel="stylesheet" type="text/css" />
<link href="/expedientes/includes_comun/css/usuarios.css" rel="stylesheet" type="text/css" />
<link href="includes/css/sistema.css" rel="stylesheet" type="text/css" />


</head>
<%
Dim Id_Expediente
Id_Expediente = Request.Form("Id_Expediente")

Fecha = Request.Form("fecha")


If Not IsDate(Fecha) Then
	Fecha = date
Else
	Fecha = CDate(Fecha)
End If

dim fechaa
fechaa = Trim(Request.Form("venci"))
Conectar_gae
	SQL = "Update Expedientes Set FVencimiento='"&fechaa&"' WHERE Id_Expediente = '"&Id_Expediente&"'"
	Conexion.Execute(SQL)
	response.Redirect("boleta.asp?id_expediente="&id_expediente)
Desconectar
%>
<body onload="Vencimiento()">

</body>
</html>
